home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pcrjan89.arc / FITS.BAS < prev    next >
BASIC Source File  |  1990-03-21  |  699b  |  18 lines
  1. 10 KEY OFF
  2. 20 INPUT "High density (1.2 or 1.44MB)? <Y/N> ";ANSWER$
  3. 30 IF ANSWER$="Y" OR ANSWER$="y" THEN CLUSTSIZE=512 ELSE CLUSTSIZE=1024
  4. 40 CLS
  5. 50 OPEN "C:\DOS\FIT.TXT" FOR INPUT AS #1
  6. 60 WHILE NOT EOF(1)
  7. 70       INPUT #1,RCD$:PRINT RCD$
  8. 80       WHILE LEN(RCD$)=39
  9. 90             CLUSTCNT=(VAL(MID$(RCD$,14,8)))/CLUSTSIZE
  10. 100             IF INT(CLUSTCNT)<CLUSTCNT THEN CLUSTCNT=INT(CLUSTCNT)+1
  11. 110             BYTECNT=BYTECNT+(CLUSTCNT*CLUSTSIZE)
  12. 120             RCD$=""
  13. 130       WEND      'LEN(RCD$)=39
  14. 140 WEND            'NOT EOF(1)
  15. 150 CLOSE:KILL "C:\DOS\FIT.TXT"
  16. 160 PRINT "The above file(s) require";BYTECNT;"bytes using";CLUSTSIZE;"-byte clusters.";CHR$(13)
  17. 170 SYSTEM
  18.